home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_22323_restoreStateCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  2.7 KB  |  104 lines
  1. answer tStr("LibMsg",25) with tStr("LibMsg",23) or tStr("LibMsg",11)
  2. if it = tStr("LibMsg",23) then
  3. answer file tStr("LibMsg",26)
  4. if it ¡ "" then
  5. put it into fN
  6. put fN & ".i" into iName
  7. answer tStr("LibMsg",27) with tStr("LibMsg",23) or tStr("LibMsg",11)
  8. if it = tStr("LibMsg",23) then
  9. put the short id of this cd into orig
  10. LS
  11. LM true
  12. set cantabort of this stack to true
  13. BuildIndex fN, iName
  14. put the number of cds in bg "details" into numCds
  15. go first cd of bg "details"
  16. put the number of fld "local notes" into lnN
  17. put the number of fld "styled" into sN
  18. UDVars
  19. --the name of the stack
  20. get GetFileIndexedEntry(1, fN, iName)
  21. if it = the short name of this stack then
  22.  
  23. --here are the paper clips
  24. get GetFileIndexedEntry(2, fN, iName)
  25. repeat with x = 70 to 73
  26. put line (x - 69) of it into t
  27. set the name of bg btn id x to item 1 of t
  28. set the loc of bg btn id x to (item 2 to 3 of t)
  29. end repeat
  30.  
  31. --here are the blacked cards.
  32. put GetFileIndexedEntry(3, fN, iName) into fld "blacked cards"
  33.  
  34. --here are the marked cards
  35. put GetFileIndexedEntry(4, fN, iName) into fld "marked cards"
  36.  
  37. --here is the bookmark
  38. put GetFileIndexedEntry(5, fN, iName) into t
  39. set the script of cd btn "bookmark" of cd 2 to t
  40.  
  41. put 5 into fR
  42. put checked(tStr("LibMsg",45)) into wasLarge
  43. repeat with x = 1 to numCds
  44. if mouseClick() then exit repeat
  45. put false into oldFile
  46. cbusy
  47. doGauge
  48. get x + fR
  49. put GetFileIndexedEntry(it, fN, iName) into cdNo
  50. if (cdNo = the number of this cd) then
  51. --new 9/11/92
  52. put GetFileIndexedEntry(it + 1, fN, iName) into theSize
  53. put line 1 of fld "characters" into currSize
  54. if theSize = "s■■ª" then
  55. if currSize = "l" then
  56. domenu tStr("LibMsg",45)
  57. repeat until not checked(tStr("LibMsg",45))
  58. domenu tStr("LibMsg",45)
  59. end repeat
  60. end if
  61. else if theSize = "l■■ª" then
  62. if currSize = "s" then
  63. domenu tStr("LibMsg",45)
  64. repeat until checked(tStr("LibMsg",45))
  65. domenu tStr("LibMsg",45)
  66. end repeat
  67. end if
  68. else
  69. put true into oldFile
  70. end if
  71. --end new 9/11/92
  72. if oldFile = false then
  73. put GetFileIndexedEntry(it + 2, fN, iName) into fld lnN
  74. ApplyFileIndxEntryToTE (it + 3), fN, "b", lnN, iName
  75. ApplyFileIndxEntryToTE (it + 4), fN, "b", sN, iName
  76. put GetFileIndexedEntry((it + 5), fN, iName) into fld "verticals"
  77. add 5 to fR
  78. else
  79. put GetFileIndexedEntry(it + 1, fN, iName) into fld lnN
  80. ApplyFileIndxEntryToTE (it + 2), fN, "b", lnN, iName
  81. ApplyFileIndxEntryToTE (it + 3), fN, "b", sN, iName
  82. put GetFileIndexedEntry((it + 4), fN, iName) into fld "verticals"
  83. add 4 to fR
  84. end if
  85. else
  86. exit repeat
  87. end if
  88. go next cd in this bg
  89. end repeat
  90. LM false
  91. DeleteFile iName
  92. set cantabort of this stack to false
  93. go cd id orig
  94. if wasLarge ¡ checked(tStr("LibMsg",45)) then
  95. domenu "large print"
  96. end if
  97. send opencard to this cd
  98. UDClips
  99. US
  100. vis "window gauge",(checked(tStr("LibMsg",43)) and CDs())
  101. end if
  102. end if
  103. end if
  104. end if